<%@codepage="65001"%>
<%session.codepage="65001"%>
<!-- #include virtual=/inc/dbConn.asp -->
<!-- #include virtual=/inc/function.asp -->
<!-- #include virtual=/inc/action.header.inc.asp -->

<%
	'## 파라미터 변수 선언부
	
	SQLTitle = "-- ■■■■ 과목 정보 ■■■■"
	
	SQL = "SELECT part, accGroup FROM tblAccount GROUP BY part, accGroup ORDER BY part, accGroup" 

	If xMode="debug" Then 
		Call showDebug(SQLTitle,SQL) 
	End If 

	Set Rs=Server.CreateObject("ADODB.RecordSet")
	Rs.open SQL, DbCon, 1
	

	Response.write "<AccGRP>" & vbcrlf

	If Rs.eof Or Rs.bof Then 
	Else 
		Do Until Rs.eof Or Rs.bof
			If rs("part") = "IN" Then 
				part = "수입"
			Else
				part = "지출"
			End If 
			Response.write "	<accGROUP>" & vbcrlf
			Call mkXMLNode("accGroup", rs("accGroup"), 2)
			Call mkXMLNode("showAccGroup", "[" & part & "]" & rs("accGroup"), 2)
			Response.write "	</accGROUP>" & vbcrlf

		Rs.movenext
		Loop 
	End If
	Response.write "</AccGRP>" & vbcrlf
'	Call rsWithXML("Save OK!")
%>